Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/dbmap.dxr/00040_Caption Box Behavior.ls

Text File | 2000-01-27 | 639 b | 40 lines

property pStatus

on beginSprite me
  pStatus = 0
  hide(me)
end

on endSprite me
end

on show me
  castLocation = the castNum of sprite 6 + 1
  set the member of sprite the spriteNum of me to member(castLocation, "DBMap")
  set the locH of sprite the spriteNum of me to 155
  set the locV of sprite the spriteNum of me to 292
end

on hide me
  set the locH of sprite the spriteNum of me to -999
  set the locV of sprite the spriteNum of me to -999
end

on toggle me
  if pStatus = 0 then
    pStatus = 1
    show(me)
  else
    pStatus = 0
    hide(me)
  end if
end

on mouseDown me
  toggle(me)
end

on getStatus me
  return pStatus
end